home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH01.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  12 lines
  1. 10  '**********************************
  2. 20  '**         GRAPH01              **
  3. 30  '**********************************
  4. 40  SCREEN 2:KEY OFF:CLS
  5. 50  A=0:B=100:C=319:D=100:E=320:F=100:G=619:H=100
  6. 60  LINE (A,100)-(160,B):LINE (E,100)-(480,F)
  7. 70  LINE (160,B)-(C,100):LINE (480,F)-(G,100)
  8. 80  LINE (C,100)-(160,D):LINE (G,100)-(480,H)
  9. 90  LINE (160,D)-(A,100):LINE (480,H)-(E,100)
  10. 100  A=A+8:B=B-6:C=C-8:D=D+6:E=A+320:G=C+320:H=D:F=B
  11. 110  IF G > 315 THEN 60
  12.